home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / mar94 / ma_fig07.gif

< prev

next >

Graphics Interchange Format  |  1996-07-10  |  28KB  |  641x492  |  4-bit (5 colors)

Labels: text | screenshot | font | display | number
OCR: CUSTOMER :: #Button3 :: pushButton* method pushButton(var eventInfo Event) var custReport Report custRPI ReportPrintInfo q: String endvar ; Set up and invoke dialog box. srLib setTableName( ":WORK : customer"" ) srLib setCurReckeyField( "Customer No" ) srLib .setCurRec( Customer No ) srLib .openSortRangeDialog( r ) if r <> "Ok" then return endIf q = srLib .queryString() custRPI .name ": WORK : custlo" custRPI .queryString q custRPI .orient = PrintLandscape if not custReport print( custRPI ) then msgStop ( "Error", "Could not print CUST report!") return endIf endMethod Edit Line: 1 Col ::: 1

---